home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / byte0287.arc / LISTING4 < prev    next >
Encoding:
Text File  |  1986-05-20  |  376 b   |  10 lines
  1. 10 OPEN "I",#1,"DATA"   :REM Original data file.
  2. 20 OPEN "I",#2,"RDATA"  :REM Reconstructed data file.
  3. 30 PRINT "  DATA         RDATA      Error"
  4. 40 IF EOF(1) THEN CLOSE: END
  5. 50 INPUT#1,A    :REM Get original data value.
  6. 60 INPUT#2,B    :REM Get reconstructed value.
  7. 70 ER=ABS(B-A)  :REM Calculate error.
  8. 80 PRINT USING "#.#####^^^^  #.#####^^^^  #.####";A,B,ER
  9. 90 GOTO 40
  10.